home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
ptv1n1.arc
/
REBOOT.SRC
< prev
next >
Wrap
Text File
|
1990-06-08
|
299b
|
10 lines
PROCEDURE Reboot(Warm : Boolean);
BEGIN
{ Warm = True triggers warm boot with no memory test: }
IF Warm THEN MEMW[$0040:$0072] := $1234
{ Warm = False triggers cold boot with full memory test: }
ELSE MEMW[$0040:$0072] := 0;
INLINE($EA/$00/$00/$FF/$FF); { JMP FFFF:0 }
END;